add_codes_adm_HS_wrapper<-function(years){
  setwd(wd_code)
  setwd('./Codes/Adm HS SIIIR Codes/')
  eval(parse('add_codes_hs_adm.R', encoding = 'UTF-8'))

  
  
  
  code<-data.frame()
  for (year in years) {
    print(year)
    
    list<-add_codes_hs_adm(year)
    
    code_temp<-list[[2]]
    code<-rbind(code,code_temp)
  }

  setwd(wd_data_intermediate)
  saveRDS(code,"siiir_codes_hs_adm.rds")
  
}